home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).zip / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).do / MESSWERT.START.bas < prev    next >
BASIC Source File  |  1996-12-24  |  556b  |  12 lines
  1. 1000  SPEED= 255: NOTRACE : TEXT : HOME 
  2. 1010  PRINT  CHR$(4)"NOMONCIO"
  3. 1020  PRINT  CHR$(4)"MAXFILES2"
  4. 1030  PRINT  TAB( 11)"MESSWERTVERARBEITUNG"
  5. 1040  PRINT : PRINT  TAB( 15)"VERSION 1.0"
  6. 1050  VTAB 12: FLASH : HTAB 10: PRINT "PROGRAMM WIRD GELADEN": NORMAL 
  7. 1060  FOR I = 768 TO 793: READ A: POKE I,A: NEXT 
  8. 1070  DATA 32,6,227,32,190,222,32,227,223,32,108,221,133,133,132,134,32,44,213,200,32,233,227,76,154,218
  9. 1080  POKE 44513,67: POKE 899,0
  10. 1090  PRINT  CHR$(4)"BLOADMW.ZEICHENSATZ"
  11. 1100  POKE 232,230: POKE 233,60
  12. 1110  PRINT  CHR$(4)"RUNMESSWERT"